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la LISP 1<5 special Conus are used for three logically separate 
purposes: a) to reach the clist, b) to allow fuoctlooe to have an 
indefinite number of arguaents, and c) to keep arguments from being 
evaluated * 

New LISP interpreters eon easily satisfy need (a) by making the 
aliat a 8?ECZAL*type or APVAL-type entity. Uses (b) and (c) eon be 
replaced by incorporating a MACRO instruction expander in define , X 
am proposing such an expander<> 

1, The property list of a macro instruction will hove tha indicator 
MACRO followad by a function of one argument, a form beginning with the 
macro's nan* and whose value will replace the original form in all func¬ 
tion definitions, 

2, Tbe function jnacyo lll will define macro's just aa define[1] 
defines functions, 

3, define will be modified to cmke macro expansions. 

Examples: 

1. The ejiiatlng FSXFR csetq may be replaced by tha macro definition: 
MACRO (( 

<C8BIQ (LAMBDA (POBM) (LI3T (QUOTE CSET)(LIST (QUOTE QDCTK)(CAIK VOW)) 
<CAODR FORM)))) 
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2a A new macro stash will generate the form found frequently in 
PROG'a: 

x :■ conelfornix] 

using Che macro stash, one might write instead of the above: 

(STASH ?OBtf X)c 
Stash nay be defined by; 

MACRO (( 

(STASH (LAMBDA (POIM)(UST (QUOTE SETQ} (CAIAR lOAMXUST (COM3 (CADE PCHM) 
(CADAR FORM))) ») 

)) 

3e Sew macros nay be defined in tame of old* tauter is a macro 
for adding a new entry to the table (dotted pairs) stored as the vslue 
of a program variable* 

enter [form] N |jf 0 list [mSB;Usti CONE ;cadr[ form) jcaddrffom]]; 
cadddr[foru]] 

Znelc'entally, use of macros will alleviate the present difficulty 
resulting from the 90 LISP compiler'e only knowing about those fexprs 
In existence at its birth. 

The macro defining function mecrofll is easily defined) 
nacro[l] 3t deflist[l;MACBO] 

The new define Is a little harder: 
define[l]<5 defliatlmdefllJjKIPE] 
mdefll]* [ 

atam(l) —el; 
egfcar[l];QD0fS] «*1; 

member(eay(l) i(LAMBDA LAKL 9808)] -» ' 

cons[carl11;cona[cadr[1]{ndef[caddr[l]]]]j 
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get[carilJ ;MACRC] ijde::[g8t[cai[i j flAiRO] 

U)J 

T3.'ipUst{1 ;\[ [ j] jjidef lcar£j111J1 

A Hie macro for ce lec i. illustrates the use of micros as a means 
of a’.lowir*; functions of an arbtcrorj nuaibe;.* of arguaanst: 

aftlec;:[rorail rc Mk,l; 

1ia C flia t ! 14HBDA ; I i a t s. g ] t •:ons[CffJD; 
icapiistlck.«'r{ Comal 11] •» 

inul J \ cdi.-[l I ] Hat: (T;car[lj I; 

T Ust(iUC:{BQ;g;c<arUJl;ca<i&rllJ JJU 
11 ;cadv[£c Taj 1 j [genaymd ) 
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